leaflet.bootstrapPage() and absolutePanel().plotly charts with user inputs.shinythemes.navbarPage().Link to the app: https://nethika.shinyapps.io/world_population_gdp/"
Loading data and Creating Plot (echo = FALSE)
## OGR data source with driver: ESRI Shapefile
## Source: "C:\Users\NETHIK~1\AppData\Local\Temp\RtmpK2xxr8", layer: "ne_50m_admin_0_countries"
## with 241 features
## It has 71 fields
pal <- colorQuantile("YlOrRd", NULL, n = 5)
leaflet(data = world) %>% addProviderTiles(providers$Stamen.TonerLite) %>% setView(25.01667, 24.86667, zoom = 1.5) %>%
addPolygons(fillColor = ~pal(POP_EST),fillOpacity = 0.6,color = "black",weight = 1) %>%
addLegend(pal = pal, values = ~POP_EST, opacity = 0.6,labFormat = labelFormat(), title = "Population", position = "bottomleft")